home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / src / stefanb_src.lha / UMS / Rexx / LineAfterLine.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-10  |  218 b   |  13 lines
  1. /* $VER: LineAfterLine.rexx 1.0 */
  2.  
  3. parse arg filename num
  4.  
  5. if ~open(file,filename,"R") then exit 20
  6. line = 1
  7. do until eof(file)
  8.   str = readln(file)
  9.   if line = num then say str
  10.   line = line + 1
  11. end
  12. call close(file)
  13.